home *** CD-ROM | disk | FTP | other *** search
- object Addform: TAddform
- Left = 193
- Top = 118
- Width = 553
- Height = 515
- BorderIcons = [biSystemMenu, biMaximize]
- Caption = 'Compress'
- Color = clBtnFace
- Constraints.MinHeight = 515
- Constraints.MinWidth = 553
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- Position = poScreenCenter
- OnCreate = FormCreate
- OnShow = FormShow
- DesignSize = (
- 545
- 481)
- PixelsPerInch = 96
- TextHeight = 13
- object Topbevel: TBevel
- Left = 0
- Top = 65
- Width = 545
- Height = 8
- Align = alTop
- Shape = bsTopLine
- end
- object Toppanel: TPanel
- Left = 0
- Top = 0
- Width = 545
- Height = 65
- Align = alTop
- BevelOuter = bvNone
- Color = clWhite
- TabOrder = 0
- DesignSize = (
- 545
- 65)
- object Captionlabel: TLabel
- Left = 8
- Top = 8
- Width = 158
- Height = 13
- Caption = 'Compress Files Into Archive'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Infolabel: TLabel
- Left = 16
- Top = 24
- Width = 464
- Height = 26
- Caption =
- 'Please select a file name and a archive format. In the options t' +
- 'ab you will find options that will allow you to customize the ar' +
- 'chive to suite your needs. Changing the settings is optional.'
- WordWrap = True
- end
- object Image: TImage
- Left = 492
- Top = 8
- Width = 48
- Height = 48
- Anchors = [akTop, akRight]
- AutoSize = True
- Picture.Data = {<image000.bmp>}
- Transparent = True
- end
- end
- object Cancelbutton: TButton
- Left = 464
- Top = 448
- Width = 75
- Height = 25
- Anchors = [akRight, akBottom]
- Cancel = True
- Caption = 'Cancel'
- ModalResult = 2
- TabOrder = 1
- end
- object Okbutton: TButton
- Left = 384
- Top = 448
- Width = 75
- Height = 25
- Anchors = [akRight, akBottom]
- Caption = 'OK'
- Default = True
- ModalResult = 1
- TabOrder = 2
- end
- object Helpbutton: TButton
- Left = 8
- Top = 448
- Width = 75
- Height = 25
- Anchors = [akLeft, akBottom]
- Caption = 'Help'
- TabOrder = 3
- OnClick = HelpbuttonClick
- end
- object Pagecontrol: TPageControl
- Left = 8
- Top = 72
- Width = 529
- Height = 369
- ActivePage = Generaltabsheet
- Anchors = [akLeft, akTop, akRight, akBottom]
- TabIndex = 0
- TabOrder = 4
- object Generaltabsheet: TTabSheet
- Caption = 'General'
- ImageIndex = 2
- DesignSize = (
- 521
- 341)
- object Uplevelbutton: TSpeedButton
- Left = 384
- Top = 8
- Width = 23
- Height = 22
- Hint = 'Go up one level.'
- Anchors = [akTop, akRight]
- Flat = True
- Glyph.Data = {
- 36030000424D3603000000000000360000002800000010000000100000000100
- 18000000000000030000120B0000120B00000000000000000000FF00FF078DBE
- 078DBE078DBE078DBE078DBE078DBE078DBE078DBE078DBE078DBE078DBE078D
- BE078DBEFF00FFFF00FF078DBE63CBF8078DBEA3E1FB66CDF965CDF865CDF965
- CDF965CDF865CDF965CDF866CDF83AADD8ACE7F5078DBEFF00FF078DBE6AD1F9
- 078DBEA8E5FC6FD4FA6FD4F96ED4FA6FD4F96FD4FA6FD4FA6FD4FA6ED4F93EB1
- D9B1EAF5078DBEFF00FF078DBE72D6FA078DBEAEEAFC79DCFB79DCFB79DCFB79
- DCFB79DCFB7ADCFB79DCFA79DCFA44B5D9B6EEF6078DBEFF00FF078DBE79DDFB
- 078DBEB5EEFD83E4FB44B1810A83130C8D1744B08179DBE983E4FB84E5FC48B9
- DABBF2F6078DBEFF00FF078DBE81E2F9078DBDBAF3FD8DEBFC8DEBFC53BE960D
- 97180C98182797478AE9F88DEBFC4CBBDABEF4F7078DBEFF00FF078DBE89EAFB
- 078DBDFFFFFFC9F7FEC8F7FEC9F7FE73C3960E9D1B0C9617339946C8F7FE9BD5
- E7DEF9FB078DBEFF00FF078DBE93F0FE078DBE078DBE078DBE078DBE078DBE07
- 868A0E9B1A0FA71C088222078AAF078DBE078DBE078DBEFF00FF078DBE9BF5FE
- 9AF6FE9AF6FE9BF5FD9BF6FE9AF6FE76D4C116982616AF260C941864C5A70989
- BAFF00FFFF00FFFF00FF078DBEFEFEFEA0FBFFA0FBFEA0FBFEA1FAFEA1FBFE86
- E2D51F9E3425BB3D14A42345AC6F0989BAFF00FFFF00FFFF00FFFF00FF078DBE
- FEFEFEA5FEFF0C85180C85180C85180C851827A94234C55223B5390C85180C85
- 180C85180C8518FF00FFFF00FFFF00FF078DBE078DBE078CAE0C851820953250
- D97B4BD5753ECB6232C15026B83E159E240C8518FF00FFFF00FFFF00FFFF00FF
- FF00FFFF00FFFF00FFFF00FF0C851832AE4E5CE68E4FD87843D0682EBA4B0C85
- 18FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF0C
- 85183EBE6061EA934ED6770C8518FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
- FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF0C851846C86C0C8518FF00FFFF00
- FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
- 00FFFF00FF0C8518FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
- OnClick = UplevelbuttonClick
- end
- object Viewsbutton: TSpeedButton
- Left = 408
- Top = 8
- Width = 23
- Height = 22
- Hint = 'Change viewstyle.'
- Anchors = [akTop, akRight]
- Flat = True
- Glyph.Data = {
- 36030000424D3603000000000000360000002800000010000000100000000100
- 18000000000000030000120B0000120B00000000000000000000FF00FFFF00FF
- FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
- FFFF00FFFF00FFFF00FFFF00FFCC6701CC6701CC6701CC6701CC6701CC6701CC
- 6701CC6701CC6701CC6701CC6701CC6701CC6701CC6701CC6701FF00FFCC6701
- FFFFFFFFFFFFFFFAF5FFF3E6FEEBD5FEE3C3FEDCB5FED7ABFED7ABFED7ABFED7
- ABFED7ABFED7ABCC6701FF00FFCC6701FFFFFFFFFFFFFFFFFFFFFAF5FFF3E6FE
- EBD5FEE3C4FEDCB5FED7ABFED7ABFED7ABFED7ABFED7ABCC6701FF00FFCC6701
- FFFFFF4571FA4571FA4571FAFFFBF5A23F08A23F08A23F08FEDBB5059ACD059A
- CD059ACDFED7ABCC6701FF00FFCC6701FFFFFF4571FA4571FA4571FAFFFFFFA2
- 3F08A23F08A23F08FEE3C4059ACD059ACD059ACDFED7ABCC6701FF00FFCC6701
- FFFFFF4571FA4571FA4571FAFFFFFFA23F08A23F08A23F08FFEBD5059ACD059A
- CD059ACDFED7ABCC6701FF00FFCC6701FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFEFAF5FEF3E7FEEBD5FFE3C3FEDCB5FED7ABCC6701FF00FFCC6701
- FFFFFFCC9A99CC9A99CC9A99FFFFFFE27E03E27E03E27E03FFFAF4029A03029A
- 03029A03FEDCB5CC6701FF00FFCC6701FFFFFFCC9A99CC9A99CC9A99FFFFFFE2
- 7E03E27E03E27E03FFFFFF029A03029A03029A03FEE3C4CC6701FF00FFCC6701
- FFFFFFCC9A99CC9A99CC9A99FFFFFFE27E03E27E03E27E03FFFFFF029A03029A
- 03029A03FFEBD5CC6701FF00FFCC6701FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFAF5FFF3E6CC6701FF00FFCC6701
- CC6701CC6701CC6701CC6701CC6701CC6701CC6701CC6701CC6701CC6701CC67
- 01CC6701CC6701CC6701FF00FFFF00FFCC6701CC6701CC6701CC6701CC6701CC
- 6701CC6701CC6701CC6701CC6701CC6701CC6701CC6701FF00FFFF00FFFF00FF
- FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
- FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
- 00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
- OnClick = ViewsbuttonClick
- end
- object Browsebutton: TSpeedButton
- Left = 490
- Top = 253
- Width = 23
- Height = 22
- Hint = 'Browse.'
- Anchors = [akRight, akBottom]
- Caption = '...'
- OnClick = BrowsebuttonClick
- end
- object Archivelabel: TLabel
- Left = 8
- Top = 256
- Width = 31
- Height = 13
- Anchors = [akLeft, akBottom]
- Caption = 'Name:'
- end
- object Formatlabel: TLabel
- Left = 8
- Top = 281
- Width = 35
- Height = 13
- Anchors = [akLeft, akBottom]
- Caption = 'Format:'
- end
- object Locationlabel: TLabel
- Left = 8
- Top = 11
- Width = 44
- Height = 13
- Caption = 'Location:'
- end
- object Shelllistview: TPTShellList
- Left = 64
- Top = 40
- Width = 449
- Height = 201
- IconOptions.AutoArrange = True
- MultiSelect = True
- TabOrder = 0
- ViewStyle = vsList
- Anchors = [akLeft, akTop, akRight, akBottom]
- end
- object Shellcombobox: TPTShellCombo
- Left = 64
- Top = 8
- Width = 313
- Height = 22
- ShellList = Shelllistview
- TabOrder = 1
- Anchors = [akLeft, akTop, akRight]
- end
- object Nameedit: TEdit
- Left = 64
- Top = 253
- Width = 417
- Height = 21
- Anchors = [akLeft, akRight, akBottom]
- TabOrder = 2
- end
- object Formatcombobox: TComboBox
- Left = 64
- Top = 278
- Width = 145
- Height = 21
- Style = csDropDownList
- Anchors = [akLeft, akBottom]
- DropDownCount = 12
- ItemHeight = 13
- TabOrder = 3
- OnChange = FormatcomboboxChange
- end
- object Sfxcheckbox: TCheckBox
- Left = 8
- Top = 316
- Width = 505
- Height = 17
- Anchors = [akLeft, akBottom]
- Caption = 'Create a self-extracting archive'
- TabOrder = 4
- end
- end
- object Optionstabsheet: TTabSheet
- Caption = 'Options'
- ImageIndex = 1
- object Spanninggroupbox: TGroupBox
- Left = 8
- Top = 120
- Width = 265
- Height = 105
- Caption = 'Spanning'
- TabOrder = 0
- object Spansizelabel: TLabel
- Left = 8
- Top = 49
- Width = 49
- Height = 13
- Caption = 'Span size:'
- end
- object Spanmodelabel: TLabel
- Left = 8
- Top = 24
- Width = 77
- Height = 13
- Caption = 'Spanning mode:'
- end
- object Customlabel: TLabel
- Left = 8
- Top = 74
- Width = 72
- Height = 13
- Caption = 'Custom (bytes):'
- end
- object Spanmodecombobox: TComboBox
- Left = 112
- Top = 21
- Width = 145
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- ItemIndex = 0
- TabOrder = 0
- Text = 'None'
- OnChange = SpanmodecomboboxChange
- Items.Strings = (
- 'None'
- 'Spanning'
- 'Splitting')
- end
- object Spansizecombobox: TComboBox
- Left = 112
- Top = 46
- Width = 145
- Height = 21
- Style = csDropDownList
- Enabled = False
- ItemHeight = 13
- ItemIndex = 4
- TabOrder = 1
- Text = '1440 kB'
- OnChange = SpansizecomboboxChange
- Items.Strings = (
- 'Custom'
- '360 kB'
- '720 kB'
- '1200 kB'
- '1440 kB'
- '2 MB'
- '5 MB'
- '10 MB'
- '30 MB'
- '100 MB'
- '120 MB'
- '250 MB'
- '650 MB'
- '700 MB')
- end
- object Customedit: TEdit
- Left = 112
- Top = 71
- Width = 145
- Height = 21
- Enabled = False
- TabOrder = 2
- Text = '0'
- end
- end
- object Advancedgroupbox: TGroupBox
- Left = 280
- Top = 8
- Width = 233
- Height = 105
- Caption = 'Advanced Settings'
- TabOrder = 1
- object Advnamingcheckbox: TCheckBox
- Left = 8
- Top = 76
- Width = 217
- Height = 17
- Caption = 'Advanced span naming'
- Checked = True
- State = cbChecked
- TabOrder = 0
- end
- object Multimediacompcheckbox: TCheckBox
- Left = 8
- Top = 16
- Width = 217
- Height = 17
- Caption = 'Multimedia compression'
- Checked = True
- State = cbChecked
- TabOrder = 1
- end
- object Execompcheckbox: TCheckBox
- Left = 8
- Top = 36
- Width = 217
- Height = 17
- Caption = 'EXE compression'
- Checked = True
- State = cbChecked
- TabOrder = 2
- end
- object Solidcheckbox: TCheckBox
- Left = 8
- Top = 56
- Width = 217
- Height = 17
- Caption = 'Create solid archive'
- TabOrder = 3
- end
- end
- object Cmpgroupbox: TGroupBox
- Left = 8
- Top = 8
- Width = 265
- Height = 105
- Caption = 'Compression Settings'
- TabOrder = 2
- object Complvllabel: TLabel
- Left = 8
- Top = 24
- Width = 88
- Height = 13
- Caption = 'Compression level:'
- end
- object Dictionarysizelabel: TLabel
- Left = 8
- Top = 49
- Width = 71
- Height = 13
- Caption = 'Dictionary size:'
- end
- object Recoverydatalabel: TLabel
- Left = 8
- Top = 74
- Width = 73
- Height = 13
- Caption = 'Recovery data:'
- end
- object Complvlcombobox: TComboBox
- Left = 112
- Top = 21
- Width = 145
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- TabOrder = 0
- end
- object Dictionarysizecombobox: TComboBox
- Left = 112
- Top = 46
- Width = 145
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- ItemIndex = 7
- TabOrder = 1
- Text = '4096 kB'
- Items.Strings = (
- '32 kB'
- '64 kB'
- '128 kB'
- '256 kB'
- '512 kB'
- '1024 kB'
- '2048 kB'
- '4096 kB')
- end
- object Recoverydatacombobox: TComboBox
- Left = 112
- Top = 71
- Width = 145
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- ItemIndex = 0
- TabOrder = 2
- Text = 'None'
- Items.Strings = (
- 'None'
- '1 Percent'
- '2 Percent'
- '3 Percent'
- '4 Percent'
- '5 Percent'
- '1 Percent (external)'
- '2 Percent (external)'
- '3 Percent (external)'
- '4 Percent (external)'
- '5 Percent (external)')
- end
- end
- object Encgroupbox: TGroupBox
- Left = 280
- Top = 120
- Width = 233
- Height = 121
- Caption = 'Encryption'
- TabOrder = 3
- object Passlabel: TLabel
- Left = 8
- Top = 52
- Width = 49
- Height = 13
- Caption = 'Password:'
- Enabled = False
- end
- object Useencradiobutton: TRadioButton
- Left = 8
- Top = 16
- Width = 217
- Height = 17
- Caption = 'Use encryption'
- TabOrder = 0
- OnClick = UseencradiobuttonClick
- end
- object Noencradiobutton: TRadioButton
- Left = 8
- Top = 32
- Width = 217
- Height = 17
- Caption = 'No encryption'
- Checked = True
- TabOrder = 1
- TabStop = True
- OnClick = NoencradiobuttonClick
- end
- object Passedit: TEdit
- Left = 8
- Top = 68
- Width = 217
- Height = 21
- Enabled = False
- PasswordChar = '*'
- TabOrder = 2
- end
- object Encfilenamescheckbox: TCheckBox
- Left = 8
- Top = 96
- Width = 217
- Height = 17
- Caption = 'Encrypt files names'
- Enabled = False
- TabOrder = 3
- end
- end
- object Filegroupbox: TGroupBox
- Left = 8
- Top = 232
- Width = 265
- Height = 99
- Caption = 'Files and Folders'
- TabOrder = 4
- object Recursecheckbox: TCheckBox
- Left = 8
- Top = 16
- Width = 249
- Height = 17
- Caption = 'Recursive file scan'
- Checked = True
- State = cbChecked
- TabOrder = 0
- end
- object Foldernamescheckbox: TCheckBox
- Left = 8
- Top = 36
- Width = 249
- Height = 17
- Caption = 'Save folder names'
- Checked = True
- State = cbChecked
- TabOrder = 1
- end
- object Hiddencheckbox: TCheckBox
- Left = 8
- Top = 56
- Width = 249
- Height = 17
- Caption = 'Include hidden files'
- Checked = True
- State = cbChecked
- TabOrder = 2
- end
- object Dosnamescheckbox: TCheckBox
- Left = 8
- Top = 76
- Width = 249
- Height = 17
- Caption = 'DOS names'
- TabOrder = 3
- end
- end
- end
- end
- object Savedialog: TSaveDialog
- DefaultExt = 'zip'
- FileName = 'Untitled'
- Filter = 'All Files (*.*)|*.*'
- Left = 8
- Top = 8
- end
- end
-